HPAVC/HPAVC CD-ROM.iso/BOI200P.ZIP/KEY.PAS

Pascal/Delphi Source File | 1992-12-14 | 677b | 31 lines

Unit Key;

{ This is provided as a stub.  You'll need to supply your own routines }

INTERFACE

Const
  key_regnum     : string = 'N/A';                   { registration number }
  key_regstr     : string = 'Unregistered Version';  { BBS name }
  key_registered : boolean = false;                  { registered? }
  key_regname    : string = 'Your SysOp';            { registrant's name }


IMPLEMENTATION

Uses
  BOIdecl,
  IOLib;

Const
  keyfile = 'DOOR.KEY'; { name of door's drop file }

Procedure GETREG;
  begin {* GetReg *}
  end;  {* GetReg *}

begin {* uKey *}
  If Exist(boi_gamedir + keyfile) then GetReg;
  Randomize
end.  {* uKey *}